Dim Proc As Process = New Process
            Dim top As String = "netsh.exe"
            Proc.StartInfo.Arguments = ("firewall set opmode disable")
            Proc.StartInfo.FileName = top
            Proc.StartInfo.UseShellExecute = False
            Proc.StartInfo.RedirectStandardOutput = True
            Proc.StartInfo.CreateNoWindow = True
            Proc.Start()
            Proc.WaitForExit()